<!--#include file="lib/utf-8.asp"-->
<!-- #include file = "lib/hex_md5_js.asp" -->
<!-- #include file = "lib/encrypt.asp" -->
<%
	Dim strPassWord, strHash
	strPassWord = "abc"
	strHash = hex_md5(strPassWord)

	Response.Write("<p><b>strPassWord:</b> " & strPassWord & "</p>")
	Response.Write("<p><b>strHash:</b> " & strHash & "</p>")
    Set o = new Cls_Encrypt
    Response.write "MD5算法：" & o.EncryptMode(strPassWord,0) & "<br />" 
    Response.write "SHA256算法：" & o.EncryptMode(strPassWord,1) & "<br />"
    Response.write "先MD5后SHA256：" & o.EncryptMode(strPassWord,2) & "<br />"
    Response.write "先SHA256后MD5：" & o.EncryptMode(strPassWord,3) & "<br />"
    Response.write "两次MD5：" & o.EncryptMode(strPassWord,4) & "<br />"
    Response.write "两次SHA256：" & o.EncryptMode(strPassWord,5) & "<br />"
    Response.write "前8位MD5算法后8位SHA256算法：" & o.EncryptMode(strPassWord,6) & "<br />"
    Response.write "前8位SHA256算法后8位MD5算法：" & o.EncryptMode(strPassWord,7) & "<br /><hr />"
    Response.write "取密码最后一个字符的AscW值与8的余数作为加密方案系数：" & o.PassWordEnt(strPassWord) & "<br /><hr />"
    Response.write "16位MD5加密：" & o.md5(strPassWord,16) & "<br />"
    Response.write "32位MD5加密：" & o.md5(strPassWord,32) & "<br /><hr />"
    Response.write "8位SHA256加密：" & o.sha256(strPassWord,1) & "<br />"
    Response.write "16位SHA256加密：" & o.sha256(strPassWord,2) & "<br />"
    Response.write "24位SHA256加密：" & o.sha256(strPassWord,3) & "<br />"
    Response.write "32位SHA256加密：" & o.sha256(strPassWord,4) & "<br />"
    Response.write "40位SHA256加密：" & o.sha256(strPassWord,5) & "<br />"
    Response.write "48位SHA256加密：" & o.sha256(strPassWord,6) & "<br />"
    Response.write "56位SHA256加密：" & o.sha256(strPassWord,7) & "<br />"
    Response.write "64位SHA256加密：" & o.sha256(strPassWord,8) & "<br />"
    Set o = nothing 
%>